home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 April / EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso / EARCD / text / edit / envwww21.lha / envWWW21 / Install < prev    next >
Text File  |  1996-11-22  |  7KB  |  287 lines
  1. ; $VER: 1.0 All rights reserved.
  2.  
  3. (delopts "oknodelete" "force" "askuser")
  4. (complete 0)
  5.  
  6. (if (exists "GOLDED:" (NOREQ))
  7.  
  8.     (
  9.         (set vernum (getversion "golded:golded"))
  10.  
  11.         (set ver (/ vernum 65536))
  12.         (set rev (- vernum (* ver 65536)))
  13.  
  14.         (set version (+ (* 10 ver) rev))
  15.  
  16.         (if (< version 44)
  17.  
  18.             (
  19.                 (message "\nSorry, GoldED 4.4.0 or better required")
  20.  
  21.                 (exit (quiet))
  22.             )
  23.         )
  24.  
  25.         (message (cat "\n"
  26.  
  27.             "                                            \n"
  28.             "WWW Publishing Extensions                   \n"
  29.             "                                            \n"
  30.             "©1996 Dietmar Eilert                        \n"
  31.             "      All Rights Reserved.                  \n"
  32.             "                                            \n"
  33.             "      E-Mail: dietmar@tomate.tng.oche.de    \n"
  34.             "                                            \n"
  35.             "GoldED Release 4.4.0+ required.             \n"
  36.         ))
  37.  
  38.         (copylib
  39.  
  40.             (prompt "Install syntax parser ?")
  41.             (source "syntax/warpHTML.parser")
  42.             (dest   "golded:syntax")
  43.             (confirm)
  44.             (help @copylib-help)
  45.         )
  46.  
  47.         ; install API clients
  48.  
  49.         (copylib
  50.  
  51.             (prompt "Install API client "gifinfo.api" ?")
  52.             (source "api/gifinfo.api")
  53.             (dest   "golded:api")
  54.             (confirm)
  55.             (help @copylib-help)
  56.         )
  57.  
  58.         (copylib
  59.  
  60.             (prompt "Install API client "ISO8859.api" ?")
  61.             (source "api/ISO8859.api")
  62.             (dest   "golded:api")
  63.             (confirm)
  64.             (help @copylib-help)
  65.         )
  66.  
  67.         (copylib
  68.  
  69.             (prompt "Install API client "w3color.api" ?")
  70.             (source "api/w3color.api")
  71.             (dest   "golded:api")
  72.             (confirm)
  73.             (help @copylib-help)
  74.         )
  75.  
  76.         ; install registry editor (if not yet installed)
  77.  
  78.         (if (not (exists "golded:tools"))
  79.  
  80.             (makedir "golded:tools")
  81.         )
  82.  
  83.         (if (not (exists "golded:tools/regedit"))
  84.  
  85.             (makedir "golded:tools/regedit")
  86.         )
  87.  
  88.         (copylib
  89.  
  90.             (prompt "Install registry editor ?")
  91.             (source "bin/regedit" )
  92.             (dest   "golded:tools/regedit")
  93.             (confirm)
  94.             (help @copylib-help)
  95.         )
  96.  
  97.         ; install basic files
  98.  
  99.         (if (not (exists "golded:tools/www"))
  100.  
  101.             (makedir "golded:tools/www")
  102.         )
  103.  
  104.         (copyfiles
  105.  
  106.             (source "www")
  107.             (dest   "golded:tools/www")
  108.             (all)
  109.         )
  110.  
  111.         (if (= @language "deutsch")
  112.  
  113.             (set menu 1)
  114.             (set menu 0)
  115.         )
  116.  
  117.         (set menu (askchoice
  118.  
  119.             (prompt "\nHTML menu\n")
  120.  
  121.             (choices
  122.  
  123.                 "English"
  124.                 "Deutsch"
  125.             )
  126.  
  127.             (default menu)
  128.  
  129.             (help @askchoice-help)
  130.         ))
  131.  
  132.         (set browser (askchoice
  133.  
  134.             (prompt "\nWhat browser do you use ?\n")
  135.  
  136.             (choices
  137.  
  138.                 "None"
  139.                 "AWeb 1.2 demo (or 100% compatible)"
  140.                 "IBrowse 1.02 demo (or 100% compatible)"
  141.                 "Voyager 1.0"
  142.                 "Other"
  143.             )
  144.  
  145.             (help (cat "\n"
  146.  
  147.                 " The browser preview function of this software   \n"
  148.                 " may not work with all browsers. It requires     \n"
  149.                 " that your browser supports a 'reload page'      \n"
  150.                 " ARexx command. List of compatible browsers:     \n"
  151.                 "                                                 \n"
  152.                 " IBrowse 1.02 demo  Supported                    \n"
  153.                 " AWeb 1.2b demo     Supported                    \n"
  154.                 " AWeb-II 2.1 demo   Not supported (no ARexx port)\n"
  155.                 " Voyager 1.0        Not supported (no RELOAD cmd)\n"
  156.             ))
  157.         ))
  158.  
  159.         (if (= browser 0)
  160.  
  161.             (copyfiles
  162.  
  163.                 (source  "support/preview_none.ged")
  164.                 (dest    "golded:tools/www/arexx")
  165.                 (newname "preview.ged")
  166.             )
  167.         )
  168.  
  169.         (if (= browser 1)
  170.  
  171.             (copyfiles
  172.  
  173.                 (source  "support/preview_aweb.ged")
  174.                 (dest    "golded:tools/www/arexx")
  175.                 (newname "preview.ged")
  176.             )
  177.         )
  178.  
  179.         (if (= browser 2)
  180.  
  181.             (copyfiles
  182.  
  183.                 (source  "support/preview_ibrowse.ged")
  184.                 (dest    "golded:tools/www/arexx")
  185.                 (newname "preview.ged")
  186.             )
  187.         )
  188.  
  189.         (if (= browser 3)
  190.  
  191.             (copyfiles
  192.  
  193.                 (source  "support/preview_voyager.ged")
  194.                 (dest    "golded:tools/www/arexx")
  195.                 (newname "preview.ged")
  196.             )
  197.         )
  198.  
  199.         (if (= browser 4)
  200.  
  201.             (copyfiles
  202.  
  203.                 (source  "support/preview_other.ged")
  204.                 (dest    "golded:tools/www/arexx")
  205.                 (newname "preview.ged")
  206.             )
  207.         )
  208.  
  209.         ; install toolbar images
  210.  
  211.         (if (exists "toolbar") (
  212.  
  213.             (set hicolor
  214.  
  215.                 (askchoice
  216.  
  217.                     (prompt "\nSelect toolbar style:\n")
  218.  
  219.                     (choices
  220.  
  221.                         "4  colors"
  222.                         "8+ colors"
  223.                     )
  224.  
  225.                     (default 1)
  226.  
  227.                     (help (cat "\n"
  228.  
  229.                         " You can use both styles on all screens. The 4\n"
  230.                         " color style has been optimized for 4-color   \n"
  231.                         " screens. The 8+ style has been optimized for \n"
  232.                         " screens with eight or more colors.           \n"
  233.                     ))
  234.                 )
  235.             )
  236.  
  237.             (if (not (exists "golded:toolbar"))
  238.  
  239.                 (makedir "golded:toolbar")
  240.             )
  241.  
  242.             (if (not (exists "golded:toolbar/words"))
  243.  
  244.                 (makedir "golded:toolbar/words")
  245.             )
  246.  
  247.             (copyfiles
  248.  
  249.                 (source "toolbar")
  250.                 (dest   "golded:toolbar")
  251.                 (all)
  252.             )
  253.  
  254.             (if (= hicolor 1)
  255.  
  256.                 (copyfiles
  257.  
  258.                     (source "toolbar16")
  259.                     (dest   "golded:toolbar")
  260.                     (nogauge)
  261.                     (all)
  262.                 )
  263.             )
  264.         ))
  265.  
  266.         ; update registry
  267.  
  268.         (working "Updating registry...")
  269.  
  270.         (if (= menu 1)
  271.  
  272.             (run "golded:tools/regedit/regedit script=install_d.bat")
  273.             (run "golded:tools/regedit/regedit script=install_e.bat")
  274.         )
  275.     )
  276.  
  277.     (message (cat "\n"
  278.  
  279.         "Please install GoldED before attempting to\n"
  280.         "install this client.                      \n"
  281.     ))
  282. )
  283.  
  284. (exit (quiet))
  285.  
  286. (welcome)
  287.